home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / cdrom / idefix-demo / cd32.lha / CD32 / Make CD32 Floppy < prev    next >
Text File  |  1994-11-21  |  7KB  |  336 lines
  1. ;$VER: CD32 Install 42.1 (21.11.94)
  2. ;Copyright © 1994 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "CD32Inst" (safe))
  6.     (makeassign "CD32" (safe))
  7. )
  8.  
  9. (set #wbversion (getversion "libs:version.library"))
  10. (set #wbversion (/ #wbversion 65536) )
  11.  
  12. (set #Expansion 1)
  13.  
  14. (complete 0)
  15.  
  16. (if (< #wbversion 39)
  17.     ((abort "\n\nAmigaDOS 3.0 or higher is required for the CD32-Emulator! "
  18.              "\n\nAn upgrade will be needed for your Amiga." )
  19. ))
  20.  
  21.  
  22. (message
  23.     "\n\nThis program will create a Boot Floppy for the CD32-Emulator. "
  24.          "You must have a floppy disk handy and place it in your "
  25.          "internal drive (DF0:)."
  26.          "\n\nThe CacheCDFS MUST be already installed and running! "
  27.          "\n\nThis program MUST NOT be started from the CDFS Install Disk!"
  28.         )
  29.  
  30. (makeassign "CD32Inst" "" (safe))
  31.  
  32. (set #CDDevice_NC "CD0" )
  33.  
  34. (set #CDDevice_NC
  35.     (askstring
  36.         (prompt "\n\nWhat is the name of the CD-ROM device?\n\n"
  37.         "(The trailing colon MUST NOT be present)" 
  38.         )
  39.         (default #CDDevice_NC )
  40.         (help "\n\nThis is the name under which AmigaDOS references the "
  41.                 "CD-Rom as.  While usually "
  42.                 #CDDevice_NC
  43.                 ", it can be any name you choose. "
  44.                 "\n\nThe trailing : (colon) MUST NOT be present." )
  45.     )
  46. )
  47.  
  48.  
  49. (working "\n\nLaunching the FindCD32 program to find "
  50.          "the Device and Unit of your CD-Rom..."
  51.          "\n\nNote that the CacheCDFS MUST be already installed and running!")
  52.  
  53. (if (NOT (exists "CD32Inst:FindCD32"))
  54.     (
  55.     (abort "\n\nCould not find the FindCD32 program!")
  56.     )
  57. )
  58.  
  59. (set #Product ( run (cat "CD32Inst:FindCD32 " #CDDevice_NC) ( safe ) ) )
  60.  
  61. (if ( NOT (= #Product 0) )
  62.     (
  63.     (abort "\nCould not find your CDROM hardware!"
  64.              "\n\nThe CacheCDFS MUST be already installed and running! "
  65.           "\n\nYour CD-Rom MUST be installed as " #CDDevice_NC "!")
  66.     )
  67. )
  68.  
  69.  
  70. ( set #CDROM_Device (getenv "CDROM_Device" ))
  71. ( set #CDROM_FileSystem (getenv "CDROM_FileSystem" ))
  72. ( set #CDROM_Unit (+ (getenv "CDROM_Unit" )))
  73.  
  74. (if (askbool
  75.         (prompt "\n\nDo you want to format the disk in drive DF0: ?")
  76.         (default 1 )
  77.         (help "\n\nChoose \"YES\" to format the disk in drive DF0: "
  78.                 "and \"NO\" if you don't want to format!")
  79.  
  80.     )
  81.     (
  82.  
  83.     (working "\n\nLaunching the WBformat program to create "
  84.          "an empty Disk where the CD32-Emulator will be installed")
  85.  
  86.     ( run "CD32Inst:WBformat DF0:" ) 
  87.     )
  88. )
  89.  
  90. (makeassign "CD32" "DF0:" (safe))
  91.  
  92. (complete 50 )
  93.  
  94. (set @default-dest (getassign "CD32"))
  95.  
  96. (protect "CD32:Devs" "rwed" )
  97. (protect "CD32:Devs.info" "rwed" )
  98. (makedir "CD32:Devs" 
  99.     (infos)
  100. )
  101.  
  102. (if (exists (tackon "DEVS:" #CDROM_Device) )
  103.     ((protect (tackon "CD32:Devs" #CDROM_Device)  )
  104.     (set #Expansion 0)
  105.     (CopyLib
  106.         (source (tackon "DEVS:" #CDROM_Device))
  107.         (dest  "CD32:Devs") 
  108.     ))
  109. )
  110.  
  111. (protect "CD32:Devs/DosDrivers" "rwed"  )
  112. (protect "CD32:Devs/DosDrivers.info" "rwed"  )
  113. (makedir "CD32:Devs/DosDrivers" 
  114.     (infos)
  115. )
  116.  
  117. (protect (tackon "CD32:Devs/DosDrivers" #CDDevice_NC ) "rwed"  )
  118. (protect ( cat (tackon "CD32:Devs/DosDrivers" #CDDevice_NC ) ".info") "rwed"  )
  119.  
  120. (if (exists (tackon "DEVS:DosDrivers" #CDDevice_NC))
  121.     ((copyfiles
  122.         (source (tackon "Devs:DosDrivers" #CDDevice_NC))
  123.         (dest "CD32:Devs/DosDrivers")
  124.         (infos)
  125.     ))
  126. )
  127.  
  128. (if (NOT(exists (tackon "DEVS:DosDrivers" #CDDevice_NC)))
  129.     ((copyfiles
  130.         (source (tackon "SYS:Storage/DosDrivers" #CDDevice_NC))
  131.         (dest "CD32:Devs/DosDrivers")
  132.         (infos)
  133.     ))
  134. )
  135.  
  136. (complete 60 )
  137.  
  138. (protect "CD32:S" "rwed" )
  139. (makedir "CD32:S" 
  140. )
  141.  
  142. (protect "CD32:Libs" "rwed"  )
  143. (makedir "CD32:Libs" 
  144. )
  145.  
  146. (protect "CD32:L" "rwed"  )
  147. (makedir "CD32:L" 
  148. )
  149.  
  150. (protect "CD32:Libs/asl.library" "rwed"  )
  151. (CopyLib
  152.     (source "LIBS:asl.library")
  153.     (dest "CD32:LIBS")
  154. )
  155.  
  156. (if (exists "LIBS:68040.library")
  157.     (
  158.     (protect "CD32:Libs/68040.library" "rwed"  )
  159.     (CopyLib
  160.         (source "LIBS:68040.library")
  161.         (dest "CD32:LIBS")
  162.     ))
  163. )
  164.  
  165. (if (exists "LIBS:workbench.library" )
  166.     (
  167.     (protect "CD32:Libs/workbench.library" "rwed"  )
  168.     (CopyLib
  169.         (source "LIBS:workbench.library")
  170.         (dest "CD32:LIBS")
  171.     ))
  172. )
  173.  
  174. (protect (tackon "CD32:" #CDROM_FileSystem) "rwed"  )
  175. (CopyLib
  176.     (source #CDROM_FileSystem)
  177.     (dest "CD32:L")
  178. )
  179.  
  180. (complete 70 )
  181.  
  182. (protect "CD32:C" "rwed"  )
  183. (makedir "CD32:C" 
  184. )
  185.  
  186. (protect "CD32:C/SetPatch" "rwed"  )
  187. (CopyLib
  188.     (source "C:SetPatch")
  189.     (dest "CD32:C")
  190. )
  191.  
  192. (protect "CD32:C/LoadWB" "rwed"  )
  193. (CopyLib
  194.     (source "C:LoadWB")
  195.     (dest "CD32:C")
  196. )
  197.  
  198. (protect "CD32:C/Mount" "rwed"  )
  199. (CopyLib
  200.     (source "C:Mount")
  201.     (dest "CD32:C")
  202. )
  203.  
  204. (protect "CD32:C/Execute" "rwed"  )
  205. (CopyLib
  206.     (source "C:Execute")
  207.     (dest "CD32:C")
  208. )
  209.  
  210.  
  211. (if (exists "CD32Inst:CD32-Demo" )
  212.     (
  213.     (set #CD32_Name "CD32-Demo")
  214.     )
  215. )
  216.  
  217. (if (exists "CD32Inst:TandemCD32" )
  218.     (
  219.     (set #CD32_Name "TandemCD32")
  220.     )
  221. )
  222.  
  223. (if (exists "CD32Inst:CD1200_CD32" )
  224.     (
  225.     (set #CD32_Name "CD1200_CD32")
  226.     )
  227. )
  228.  
  229. (if (exists "CD32Inst:CD32" )
  230.     (
  231.     (set #CD32_Name "CD32")
  232.     )
  233. )
  234.     
  235.  
  236. (complete 80 )
  237.  
  238. (protect (tackon "CD32:" #CD32_Name) "rwed"  )
  239. (CopyLib
  240.     (source (tackon "CD32Inst:" #CD32_Name))
  241.     (dest "CD32:")
  242.     (infos)
  243. )
  244.  
  245. (complete 90 )
  246.  
  247. (protect "CD32:S/Startup-Sequence" "rwed" )
  248.  
  249. (if #Expansion
  250.     (
  251.     (set #Expansion ( NOT (askbool
  252.         (prompt "\n\nIs your CD-Rom controller an Autoboot controller ?")
  253.         (default 0 )
  254.         (help "\n\nChoose \"YES\" if your controller is an autoboot controller "
  255.                 "and \"NO\" if not!")
  256.  
  257.         ))
  258.     ))
  259. )
  260.  
  261. (if #Expansion
  262.     (
  263.     (set #BindDrivers "C:BindDrivers\n")
  264.     )
  265. )
  266.  
  267. (if (NOT #Expansion)
  268.     (
  269.     (set #BindDrivers "")
  270.     )
  271. )
  272.  
  273. (textfile
  274.     (dest "CD32:S/Startup-Sequence" )
  275.     (append ";********************************************************************\n"
  276.               ";*  CD32-Emulator startup-sequence © 1994 Elaborate Bytes, O. Kastl *\n"
  277.               ";********************************************************************\n")
  278.     (append "\n")
  279.     (append #BindDrivers)
  280.     (append #CD32_Name)
  281.     (append "\n")
  282. )
  283.  
  284. (if #Expansion
  285.     (
  286.     (protect "CD32:Expansion" "rwed" )
  287.     (protect "CD32:Expansion.info" "rwed"  )
  288.  
  289.     (makedir "CD32:Expansion" 
  290.         (infos)
  291.     )
  292.  
  293.     (protect "CD32:C/BindDrivers" "rwed"  )
  294.     (CopyLib
  295.         (source "C:BindDrivers")
  296.         (dest "CD32:C")
  297.     )
  298.  
  299.     (message
  300.         "\n\nIf your CD-Rom controller is no Autoboot controller, you have to "
  301.          "drag its driver icon from the SYS:Expansion drawer to the Expansion drawer "
  302.          "on the CD32 Emulator disk!" 
  303.         )
  304.     )
  305. )
  306.  
  307. (makedir "CD32:GameStore" 
  308.     (infos)
  309. )
  310.  
  311. (tooltype
  312.     (dest (tackon "CD32:" #CD32_Name) )
  313.     (settooltype "NVPATH" "GameStore" )
  314.     (settooltype "DOSDEV" #CDDevice_NC )
  315.     (noposition)
  316. )
  317.  
  318. ( protect "CD32:S/Startup-Sequence" "-e +s" )
  319.  
  320. ( if (NOT @pretend )
  321. ((if ( run "CD32Inst:PutPrefs CD32: NonLace" )
  322.     (
  323.     (abort "\n\nPutPrefs program failed!")
  324.     ))
  325. ))
  326.  
  327. ( if (NOT @pretend )
  328. (( run "C:Install DF0:" ))
  329. )
  330.  
  331. (complete 100 )
  332.  
  333. (makeassign "CD32" (safe))
  334. (makeassign "CD32Inst" (safe))
  335.  
  336.